1 CLOSE1:OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE1
10 POKE53281,0:POKE53280,0:PRINT"[147][150][198]INAL [196]ISK [196]IRECTORY [215]RITER"
15 PRINT"[155]([195])1993 BY [194]UG [194]ARNY / [205]IRKO [212]OMASCHEK"
20 PRINT"[196]IESES [208]ROGRAMM SCHREIBT DAS [196][201][210][197][195][154] EINER"
21 PRINT"[154][196]ISK INS [215]RITERFORMAT DER [198]INAL[195]ARTRIDGE"CHR$(14)
50 CLOSE1:OPEN1,8,15,"I":CLOSE1
100 INPUT"[156][198]ILENAME";A$
900 DIMN$(200):Z=0
950 PRINT"[147][218]U LESENDE [196]ISK EINLEGEN & [212]ASTE !"
960 GETX$:IFX$=""THEN 960
999 PRINT"[198][195] [196]IR [204]ISTER FUER [196]IGITAL [212]ALK"
1000 OPEN 1,8,0,"$"
1020 GET#1,X$,X$
1030 GET#1,X$,X$,X$,X$
1040 IF ST THEN CLOSE 1:GOTO1500
1050 GET#1,X$:IF X$= ""THEN PRINTCHR$(34):N$(Z)=N$(Z)+CHR$(34):Z=Z+1:GOTO 1030
1060 IF X$=CHR$(34) THEN Q=NOT Q
1070 IF Q THEN N$(Z)=N$(Z)+X$:PRINTX$;:
1080 GOTO1050
1500 PRINT"[147][218]IELDISK EINLEGEN & [212]ASTE !"
1550 GETX$:IFX$=""THEN1550
1560 PRINT"[147][153]"+A$+"[211][193][214][197][201][206][199]...[145][145]"
1570 PRINT"[198]ILES IN [196]IRECTORY !"
1998 CLOSE1:GOTO2000
1999 I=200:GOTO2002
2000 OPEN2,8,2,"@:"+A$+",P,W":PRINT#2,"64 [198][195] [196]IR":FORI=0TO200:IFN$(I)=""THEN1999
2001 PRINT#2,N$(I):PRINT""I
2002 NEXT I
2003 CLOSE2:PRINT" "A$,+"FERTIG 1"
2004 RUN50